--[[
    编码: JX-24-20
    名称: 出库单-出库完成检查
    作者：HAN  
    日期：2025-1-29

    级别：项目
    
    函数： FinishCheck

    功能:
        检查一下【出库单】中出库明细中的出库数量是否等于 计划出库数量，如果全部都已经出库完成，设置出库单的状态=完成/4
        -- 并且触发回报WFP
    更改记录:

--]]
wms_base = require ("wms_base")

function FinishCheck ( strLuaDEID ) 
    local nRet, strRetInfo
    local oo_obj = {}
    nRet, oo_obj = m3.GetSysCurEditDataObj( strLuaDEID, "Outbound_Order" )
    if (nRet ~= 0) then lua.Error( strLuaDEID, debug.getinfo(1), "获取【出库单】对象属性失败!"..oo_obj ) end
    
    -- 只有对作业中的出库单进行是否完成出库检测
    if ( oo_obj.b_state > 3 ) then return end

    -- 判断出库单是否可以报完工
    local strCondition = "F_QTY > (F_ACC_O_QTY + F_ACC_C_QTY) AND S_OO_NO = '"..oo_obj.no.."'"

    nRet, strRetInfo = mobox.getDataObjCount( strLuaDEID, "Outbound_Detail", strCondition )
    if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "getDataObjCount失败!"..strRetInfo ) end
    local nCount = lua.StrToNumber( strRetInfo ) 
    
    if ( nCount == 0 ) then
        -- 出库单是已经可以完工
        -- N_B_STATE = 4 出库完成
        strSetAttr = "N_B_STATE = 4"
        strCondition = "S_NO = '"..oo_obj.no.."'"
        nRet, strRetInfo = mobox.updateDataAttrByCondition( strLuaDEID, "Outbound_Order", strCondition, strSetAttr )
        if ( nRet ~= 0 ) then  lua.Error( strLuaDEID, debug.getinfo(1), "更新【出库单】状态息失败!"..strRetInfo ) end  
        
        -- 增加一个后台进程进行 报工处理
        local add_wfp = {
                            wfp_type = 1,                  -- 触发数据对象事件（指定数据对象标识）
                            cls = "出库单",
                            obj_id = oo_obj.id,
                            obj_name = "出库单号'"..oo_obj.no.."'-->完工回报",
                            trigger_event = "完工回报"
        }
        nRet, strRetInfo = m3.AddSysWFP( strLuaDEID, add_wfp )
        if ( nRet ~= 0 ) then 
            lua.Error( strLuaDEID, debug.getinfo(1), "AddSysWFP失败!"..strRetInfo )  
        end           
    end
end